home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2003 September / PC Answers September 2003.iso / Software / freeware / pixeltoolbox / Setup.exe / Main / PixelToolbox.exe / PixelToolbox.dxr / Scripts_39_mouse script - pattern screen spinner.ls < prev    next >
Encoding:
Text File  |  2002-06-08  |  2.0 KB  |  76 lines
  1. property pMySprite, pMyMember, pMyMember2
  2. global gPatternScreenBlend
  3.  
  4. on beginSprite me
  5.   pMySprite = sprite(me.spriteNum)
  6.   pMyMember = pMySprite.memberNum
  7.   pMyMember2 = pMyMember - 1
  8. end
  9.  
  10. on mouseEnter me
  11.   case the currentSpriteNum of
  12.     "163":
  13.       put "Click to increase the screen's opacity." into field "status"
  14.     "164":
  15.       put "Click to decrease the screen's opacity." into field "status"
  16.   end case
  17. end
  18.  
  19. on mouseLeave me
  20.   put EMPTY into field "status"
  21. end
  22.  
  23. on mouseDown me
  24.   set the memberNum of sprite pMySprite to pMyMember2
  25.   case the currentSpriteNum of
  26.     "163":
  27.       patternScreenOpacityUp()
  28.     "164":
  29.       patternScreenOpacityDown()
  30.   end case
  31.   updateStage()
  32.   myStartTime = the milliSeconds
  33.   myTimeLength = 1000
  34.   repeat while the mouseDown
  35.     if the milliSeconds < (myStartTime + myTimeLength) then
  36.       set the memberNum of sprite pMySprite to pMyMember2
  37.       updateStage()
  38.       next repeat
  39.     end if
  40.     set the memberNum of sprite pMySprite to pMyMember2
  41.     case the currentSpriteNum of
  42.       "163":
  43.         patternScreenOpacityUp()
  44.       "164":
  45.         patternScreenOpacityDown()
  46.     end case
  47.     myStartTime = the milliSeconds
  48.     myTimeLength = 50
  49.     updateStage()
  50.   end repeat
  51. end
  52.  
  53. on mouseUp me
  54.   set the memberNum of sprite pMySprite to pMyMember
  55. end
  56.  
  57. on patternScreenOpacityDown
  58.   if the text of field "pattern screen opacity" = "1" then
  59.     nothing()
  60.   else
  61.     set the text of field "pattern screen opacity" to string(integer(the text of field "pattern screen opacity") - 1)
  62.     sprite(235).blend = integer(the text of field "pattern screen opacity")
  63.     gPatternScreenBlend = sprite(235).blend
  64.   end if
  65. end
  66.  
  67. on patternScreenOpacityUp
  68.   if the text of field "pattern screen opacity" = "100" then
  69.     nothing()
  70.   else
  71.     set the text of field "pattern screen opacity" to string(integer(the text of field "pattern screen opacity") + 1)
  72.     sprite(235).blend = integer(the text of field "pattern screen opacity")
  73.     gPatternScreenBlend = sprite(235).blend
  74.   end if
  75. end
  76.